
R version 4.2.2 (2022-10-31 ucrt) -- "Innocent and Trusting"
Copyright (C) 2022 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64 (64-bit)

R是自由软件，不带任何担保。
在某些条件下你可以将其自由散布。
用'license()'或'licence()'来看散布的详细条件。

R是个合作计划，有许多人为之做出了贡献.
用'contributors()'来看合作者的详细情况
用'citation()'会告诉你如何在出版物中正确地引用R或R程序包。

用'demo()'来看一些示范程序，用'help()'来阅读在线帮助文件，或
用'help.start()'通过HTML浏览器来看帮助文件。
用'q()'退出R.

[原来保存的工作空间已还原]

> library(xlsx)
> library(meta)
载入需要的程辑包：metadat
Loading 'meta' package (version 7.0-0).
Type 'help(meta)' for a brief overview.
Readers of 'Meta-Analysis with R (Use R!)' should install
older version of 'meta' package: https://tinyurl.com/dt4y5drs
Warning messages:
1: 程辑包‘meta’是用R版本4.2.3 来建造的 
2: 程辑包‘metadat’是用R版本4.2.3 来建造的 
> metagen <- read.xlsx("review.xlsx",3)
> se <-(metagen $ uci - metagen $ lci)/ (2*1.96)
> lnhr<- log(metagen$ hr)
> metagen <- cbind(metagen,lnhr,se)
> m <- metagen(TE=metagen $ lnhr,seTE=metagen $ se,studlab=paste(metagen $ study,metagen $year,sep="/"),sm="HR",backtransf=TRUE)
> metainf(m)
Influential analysis (common effect model)

                                HR           95%-CI  p-value   tau^2     tau
Omitting Bjørneklett/2011   1.8917 [1.7008; 2.1040] < 0.0001  0.0631  0.2513
Omitting Baek/2012          1.8746 [1.6858; 2.0846] < 0.0001  0.0607  0.2464
Omitting Lin/2015           1.8810 [1.6932; 2.0897] < 0.0001  0.0571  0.2390
Omitting Mashitani/2017     1.8801 [1.6919; 2.0892] < 0.0001  0.0589  0.2427
Omitting Orlandi/2018       1.8752 [1.6869; 2.0845] < 0.0001  0.0592  0.2433
Omitting Lin/2018           1.8539 [1.6653; 2.0638] < 0.0001  0.0521  0.2284
Omitting Bobart/2019        1.8820 [1.6941; 2.0907] < 0.0001  0.0569  0.2386
Omitting Wu/2020            1.8790 [1.6899; 2.0893] < 0.0001  0.0619  0.2489
Omitting Okada/2020         1.8763 [1.6887; 2.0848] < 0.0001  0.0570  0.2387
Omitting Precil/2020        1.8980 [1.7073; 2.1100] < 0.0001  0.0572  0.2393
Omitting Yoshida/2020       2.0347 [1.8020; 2.2976] < 0.0001  0.0655  0.2558
Omitting Ebbestad/2022      1.8817 [1.6939; 2.0904] < 0.0001  0.0568  0.2384
Omitting Lv/2017            1.8812 [1.6933; 2.0898] < 0.0001  0.0570  0.2388
Omitting Vandenbussche/2019 1.9371 [1.7389; 2.1579] < 0.0001  0.0461  0.2147
Omitting Fogh/2021          1.5514 [1.3445; 1.7901] < 0.0001  0.0175  0.1325
Omitting He/2021            1.9506 [1.7457; 2.1794] < 0.0001  0.0588  0.2425
                                                                            
Pooled estimate             1.8818 [1.6940; 2.0905] < 0.0001  0.0568  0.2383
                               I^2
Omitting Bjørneklett/2011    47.9%
Omitting Baek/2012           48.2%
Omitting Lin/2015            48.6%
Omitting Mashitani/2017      48.6%
Omitting Orlandi/2018        48.1%
Omitting Lin/2018            44.9%
Omitting Bobart/2019         48.7%
Omitting Wu/2020             48.6%
Omitting Okada/2020          47.2%
Omitting Precil/2020         45.1%
Omitting Yoshida/2020        33.2%
Omitting Ebbestad/2022       48.7%
Omitting Lv/2017             48.6%
Omitting Vandenbussche/2019  36.0%
Omitting Fogh/2021            0.0%
Omitting He/2021             40.0%
                                  
Pooled estimate              45.1%

Details on meta-analytical method:
- Inverse variance method
- Restricted maximum-likelihood estimator for tau^2
> 
